home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 041-050 / amok46 / programme / contest.mod < prev    next >
Text File  |  1993-11-04  |  4KB  |  117 lines
  1. (*
  2.  * -------------------------------------------------------------------------
  3.  *
  4.  *    :Program.    ConTest
  5.  *    :Contents.    Demonstration der ConTools.
  6.  *    :Author.    Reiner Nix
  7.  *    :Address.    Geranienhof 2, 5000 Köln 71 Seeberg
  8.  *    :Copyright.    Public Domain
  9.  *    :Language.    Modula-2
  10.  *    :Translator.    M2Amiga A-L V3.3d
  11.  *    :History.    V1.0    21.11.90
  12.  *    :Imports.    ConTools un sons nix.
  13.  *
  14.  * -------------------------------------------------------------------------
  15.  *)
  16. MODULE ConTest;
  17.  
  18. FROM    ConTools    IMPORT    TZeile, TMenue, TBereich,
  19.                 TZeichen, TZeichenMenge,
  20.                 Status, TStatus, Kommentar,
  21.                 DefiniereZeile, DefiniereBereich, DefiniereMenue,
  22.                 LoescheAusgabe, SetzePosition, BenutzeBereich,
  23.                 WriteString,
  24.                 MenueWahl, ZeichenWahl, Meldung, ZeilenWahl,
  25.                 ReadString, ReadInt;
  26.  
  27.  
  28. VAR    Auswahl        :TMenue;
  29.     EndeZeile    :TZeile;
  30.     AuswahlBereich    :TBereich;
  31.  
  32.     Text        :ARRAY [0..50] OF CHAR;
  33.     Z        :INTEGER;
  34.     Zeichen        :CHAR;
  35.  
  36. BEGIN
  37. DefiniereZeile (EndeZeile,
  38.                 1,3, TZeichenMenge {},
  39.                 " Programm beenden ",
  40.                 "   weitermachen   ",
  41.                 "    weis nicht    ", "","","","","","","");
  42. DefiniereBereich (AuswahlBereich,
  43.           3,3,73,18, 1,2);
  44. DefiniereMenue (Auswahl,
  45.                 1,5, 4,3, 5,6, AuswahlBereich,
  46.                 "  Test Auswahl  ",
  47.                 " ReadString Test  ",
  48.                 " ReadLongInt Test ",
  49.                 " ZeichenWahl Test ",
  50.                 " Meldung Test     ",
  51.                 "  Ende            ", "","","","","");
  52. Text := "TestText";
  53. Z := 7;
  54.   REPEAT
  55.     REPEAT
  56.     MenueWahl (Auswahl, TRUE);
  57.     CASE Auswahl.Wahl OF
  58.     | 1:
  59.       LoescheAusgabe;
  60.       SetzePosition (5,5); WriteString ("Teste ReadString");
  61.         REPEAT
  62.         ReadString (30,5,30, TZeichenMenge {alleZeichen,Return..Funktion},
  63.                     Text);
  64.         BenutzeBereich (Kommentar);
  65.         CASE Status OF
  66.         |Normal        :WriteString ("Normal")
  67.         |Ende        :WriteString ("Ende")
  68.         |Zurueck    :WriteString ("Zurueck")
  69.         |Hilfe        :WriteString ("Hilfe")
  70.         |Funktion1    :WriteString ("Funktion1")
  71.         |Funktion2    :WriteString ("Funktion2")
  72.         |Funktion3    :WriteString ("Funktion3")
  73.         |Funktion4    :WriteString ("Funktion4")
  74.         |Funktion5    :WriteString ("Funktion5")
  75.         |Funktion6    :WriteString ("Funktion6")
  76.         |Funktion7    :WriteString ("Funktion7")
  77.         |Funktion8    :WriteString ("Funktion8")
  78.         |Funktion9    :WriteString ("Funktion9")
  79.         |Funktion10    :WriteString ("Funktion10")
  80.         |sFunktion1    :WriteString ("sFunktion1")
  81.         |sFunktion2    :WriteString ("sFunktion2")
  82.         |sFunktion3    :WriteString ("sFunktion3")
  83.         |sFunktion4    :WriteString ("sFunktion4")
  84.         |sFunktion5    :WriteString ("sFunktion5")
  85.         |sFunktion6    :WriteString ("sFunktion6")
  86.         |sFunktion7    :WriteString ("sFunktion7")
  87.         |sFunktion8    :WriteString ("sFunktion8")
  88.         |sFunktion9    :WriteString ("sFunktion9")
  89.         |sFunktion10    :WriteString ("sFunktion10")
  90.         |Oben        :WriteString ("Oben")
  91.         |Unten        :WriteString ("Unten")
  92.         |Rechts        :WriteString ("Rechts")
  93.         |Links        :WriteString ("Links")
  94.         |SeiteOben    :WriteString ("SeiteOben")
  95.         |SeiteUnten    :WriteString ("SeiteUnten")
  96.         ELSE
  97.           END;
  98.         BenutzeBereich (Auswahl.Bereich)
  99.         UNTIL Status = Ende;
  100.     | 2:
  101.       LoescheAusgabe;
  102.       SetzePosition (5,6); WriteString ("Test ReadLongInt");
  103.       ReadInt (30,6,4, TZeichenMenge {}, Z)
  104.     | 3:
  105.       BenutzeBereich (Kommentar); LoescheAusgabe;
  106.       ZeichenWahl (2,2, "Test Zeichenwahl", TZeichenMenge {JaNein}, Zeichen)
  107.     | 4:
  108.       BenutzeBereich (Kommentar); LoescheAusgabe;
  109.       Meldung ("Test Meldung", TRUE)
  110.     ELSE
  111.       END
  112.     UNTIL Auswahl.Wahl = Auswahl.Anzahl;
  113.   BenutzeBereich (Kommentar);
  114.   ZeilenWahl (2,2, EndeZeile);
  115.   UNTIL EndeZeile.Wahl = 1
  116. END ConTest.
  117.